home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D09.D64 / memory transfer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.7 KB  |  52 lines
  1. 5 POKE53272,22
  2. 10 REM *********************
  3. 20 REM ** MEMORY TRANSFER **
  4. 30 REM **  BY LEE BAMBER  **
  5. 35 REM **   BUGBLASTED!   **
  6. 37 REM ** BY CHRIS BAMBER **
  7. 40 REM *********************
  8. 90 LM=20000:POKE53280,0:POKE53281,0:GOSUB500
  9. 100 GETA$:IFA$="[133]"THENGOSUB1000
  10. 110 IFA$="[134]"THENGOSUB2000
  11. 120 IFA$="[136]"THENGOSUB3000
  12. 130 GOTO100
  13. 500 PRINT"[147]                                        [146]";
  14. 510 PRINT"  [198]1-[212]RANSFER    [198]3-[214]IEWER     [198]7-[209]UIT  [146]";
  15. 520 PRINT"                                        [146]";:RETURN
  16. 700 INPUT"[193]RE YOU ABSOLUTELY SURE Y/N ";YY$
  17. 710 IFYY$<>"Y"THENGOSUB500:GOTO100
  18. 720 RETURN
  19. 1000 REM TRANSFER
  20. 1010 FORT=55338TO55348:POKET,2:NEXTT
  21. 1020 PRINT"[212]RANSFER DATA":PRINT"                       20000"
  22. 1030 INPUT"[145][197]NTER START LOCATION ";SL:PRINT"                     21000"
  23. 1035 IFSL<3000ORSL>64000THENPRINT"ILLEGAL NUMBER!!!":GOSUB500:RETURN
  24. 1040 INPUT"[145][197]NTER END LOCATION ";EL
  25. 1045 IFEL<3000OREL>64000OREL<SLTHENPRINT"ILLEGAL NUMBER!!!":GOSUB500:RETURN
  26. 1046 PRINT"                            22000"
  27. 1047 INPUT"[145][197]NTER DESTINATION LOCATION";DS
  28. 1048 IFDS<3000ORDS>64000THENGOSUB500:RETURN
  29. 1050 GOSUB700:PRINT"[208]ERFORMING TRANSFER!":A=0:FORT=SLTOEL:L=PEEK(T):POKEDS+A,L
  30. 1070 A=A+1:NEXTT:PRINT"[207]PERATION COMPLETED!"
  31. 1099 FORT=0TO1000:GOSUB500:RETURN
  32. 2000 FORT=55353TO55361:POKET,2:NEXTT
  33. 2005 PRINT"[214]IEW DATA":PRINT"[204]AST MEMORY LOCATION >";LM
  34. 2010 INPUT"[197]NTER NEW LOCATION TO VIEW ";LM
  35. 2015 IFLM>64000THENPRINT"TOO HIGH!!!":GOSUB500:RETURN
  36. 2025 PRINT"[147][158][206]OTE:- [208]RESS SPACE TO RETURN TO MENU!!!":FORT=0TO1000:NEXTT
  37. 2026 INPUT"[200][201][199][200][204][201][199][200][212] [213][146]PPER CASE OR [204][146]OWER CASE";HH$
  38. 2027 IFHH$="U"THENGOTO2030
  39. 2028 IFHH$="L"THENGOTO2500
  40. 2029 IFHH$<>"L"ORHH$<>"U"THENGOSUB500:RETURN
  41. 2030 PRINT"[147]":A=0:FORT=LMTOLM+1000:L=PEEK(T):POKE1024+A,L
  42. 2035 POKE55296+A,9
  43. 2036 IFL>64ANDL<91THENPOKE55296+A,7
  44. 2038 A=A+1:NEXTT
  45. 2040 GETA$:IFA$<>" "THENGOTO2040
  46. 2050 GOSUB500:RETURN
  47. 2500 PRINT"[147]":A=0:FORT=LMTOLM+1000:L=PEEK(T):POKE1024+A,L:POKE55296+A,9
  48. 2510 IFL<27THENPOKE55296+A,7
  49. 2520 A=A+1:NEXTT:GOTO2040
  50. 3000 PRINT"[147]":FORT=0TO255:POKE53280,T:NEXTT
  51. 3010 POKE53280,14:POKE53281,6:PRINT"[147][154] [194]YE FOLKS!!! ";:END
  52.